home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 199
- Top = 108
- Width = 542
- Height = 326
- Caption = 'Form1'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnActivate = FormActivate
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 193
- Height = 282
- Align = alLeft
- TabOrder = 0
- OnResize = Panel1Resize
- object Label2: TLabel
- Left = 8
- Top = 8
- Width = 42
- Height = 13
- Caption = 'Directory'
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 8
- Top = 24
- Width = 169
- Height = 153
- ItemHeight = 16
- TabOrder = 0
- OnChange = DirectoryListBox1Change
- end
- object DriveComboBox1: TDriveComboBox
- Left = 8
- Top = 192
- Width = 169
- Height = 19
- DirList = DirectoryListBox1
- TabOrder = 1
- end
- object btnFind: TButton
- Left = 112
- Top = 240
- Width = 65
- Height = 25
- Hint = 'Click here to search the disk'
- Caption = 'Find'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = btnFindClick
- end
- object grpSeverity: TRadioGroup
- Left = 8
- Top = 216
- Width = 89
- Height = 57
- Caption = ' Files to find '
- TabOrder = 3
- end
- object btnNormal: TRadioButton
- Left = 16
- Top = 232
- Width = 73
- Height = 17
- Hint = 'Finds backup and other files that can be regenerated'
- Caption = 'Most files'
- Checked = True
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- TabStop = True
- OnClick = btnNormalClick
- end
- object btnExtra: TRadioButton
- Left = 16
- Top = 248
- Width = 73
- Height = 17
- Hint = 'Finds help .GID and .FTS (full text search) files'
- Caption = 'Extra files'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = btnExtraClick
- end
- end
- object Panel2: TPanel
- Left = 193
- Top = 0
- Width = 341
- Height = 282
- Align = alClient
- TabOrder = 1
- OnResize = Panel2Resize
- object Label1: TLabel
- Left = 72
- Top = 8
- Width = 33
- Height = 13
- Caption = 'Files....'
- end
- object lblSize: TLabel
- Left = 16
- Top = 8
- Width = 33
- Height = 13
- Caption = 'KBytes'
- end
- object ListBox1: TListBox
- Left = 16
- Top = 24
- Width = 313
- Height = 201
- ItemHeight = 13
- MultiSelect = True
- Sorted = True
- TabOrder = 0
- OnClick = ListBox1Click
- end
- object btnSelectAll: TButton
- Left = 16
- Top = 240
- Width = 73
- Height = 25
- Hint = 'Selects all the files listed, ready for deletion'
- Caption = 'Select All'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = btnSelectAllClick
- end
- object btnDelete: TButton
- Left = 136
- Top = 240
- Width = 73
- Height = 25
- Hint = 'Deletes the selected files'
- Caption = 'Delete'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = btnDeleteClick
- end
- object btnExit: TButton
- Left = 256
- Top = 240
- Width = 73
- Height = 25
- Caption = 'E&xit'
- Default = True
- TabOrder = 3
- OnClick = btnExitClick
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 282
- Width = 534
- Height = 17
- Panels = <>
- SimplePanel = True
- end
- end
-